home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / Shareware City / Developers / LogoMation 1.1.1 / Examples / Rutland Middle school, Canada / Ancient Sun / Ancient Sun
Encoding:
Text File  |  1995-06-21  |  410 b   |  25 lines  |  [UVtx/UVtl]
  1. // PROGRAM BY MICHAEL JACOB
  2. // JUNE 1995
  3. // FINE ARTS 8 - COMPUTER GRAPHICS
  4. // RUTLAND MIDDLE SCHOOL
  5. // KELOWNA, BC, CANADA
  6. // INSTRUCTOR:  MR. B. HOPE
  7.  
  8. Up
  9. Goto -122,122,0
  10. Down
  11. Width 2
  12. Color 63183,65535,4856
  13. Function swirl()
  14.     Repeat 2
  15.         Repeat 90
  16.             Forward 1
  17.             Right 1
  18.         Repeat 90
  19.             Forward 1
  20.             Left 1
  21.     Right 160
  22.  
  23. Repeat 9
  24.     swirl()
  25. sound "Indigo"